Sub DeleteOldDonors()
Dim cat1 As ADOX.Catalog

'Instantiate a catalog for the table to be deleted
Set cat1 = New ADOX.Catalog
cat1.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" _
     & "Data Source=" & "C:\LunarSociety\NewDB.mdb"
    
'Use the table's Delete method
cat1.Tables.Delete "OldDonors"

'Clean up before exiting
Set cat1 = Nothing

End Sub
